هایلایت یک در میان ردیف های انتخابی
سلام . به سافت پلاس خوش آمدید . تغییر رنگ پس زمینه ردیف ها در اکسل . این موضوع آموزشی است که می خواهیم امروز در مورد آن با هم صحبت کنیم .
شما در این آموزش قرار است 2 تا روشی را یاد بگیرید که با استفاده از هر کدام از این روش ها می توانید خیلی راحت هر تعداد ردیف که داشته باشید رنگ پس زمینه آنها را به هر رنگی که مد نظرتان است تغییر بدهید .
این تغییر رنگ ردیف ها به صورت یک در میان به شما کمک می کند که صفحه کاری خودتان را در محیط اکسل از حالت یک نواختی در بیاورید .
من علیرضا شهرآئینی هستم . مدیر وبسایت سافت پلاس و در این مطلب 2 راهکار خیلی ساده را به شما آموزش می دهم که با استفاده از آنها می توانید به رنگ پس زمینه ردیف ها در اکسل را تغییر بدهید
دانلود کنید : آشنایی با قابلیت ها و نحوه کار با ماکروها در محیط اکسل ۲۰۱۶ .
روش اول : تغییر رنگ پس زمینه ردیف ها به کمک فرمت های شرطی
با فرمت های شرطی در اکسل که حتما آشنایی دارید .
به کمک فرمت های شرطی می توانید شرطهایی را برای محدوده های مورد نظرتان در اکسل تعریف کنید و بعد بر مبنای آن شرطها فرمت سلول ها را تغییر دهید . درست مثل کاری که اینجا می خواهیم انجام بدهیم .
به کمک فرمت شرطی می خواهیم برای اکسل تعریف کنیم که در یک محدوده خاص از ردیفها رنگ آن ردیفها را برای ما به یک رنگ خاص دربیاورد به شرط اینکه شماره مربوط به آن ردیف یک عدد زوج باشد .
برای این کار مراحل زیر را دنبال می کنیم .
قدم اول
اولین قدم خیلی ساده است . برای شروع کل محدوده مورد نظر خودتان را در محیط اکسل به حالت انتخاب در بیاورید .
قدم دوم
حالا قابلیت conditinal Formatting را فعال کنید . تصویر زیر برای این کار به شما کمک می کند .
در این مطلب از سری مطالب مربوط به ماکروی روز به بررسی ماکرویی می پردازیم که با استفاده از آن می توانیم یک محدوده را انتخاب نماییم و با اجرای این ماکرو رنگ زمینه تمامی ردیف های موجود در این محدوده را بصورت یک در میان تغییر دهیم.
عملکرد این ماکرو به این ترتیب است که ابتدا یک محدوده از سلول ها را انتخاب می کنیم و سپس با فراخوانی کدها تغییر رنگ زمینه ردیف ها بطور یک در میان رخ خواهد داد .
برای این منظور می توانید از کدهای زیر استفاده نمایید .
sub myrow()
Dim Myrange As Range
Dim Myrow As Range
Set Myrange = Selection
For Each Myrow In Myrange.Rows
If Myrow.Row Mod 2 = 1 Then
Myrow.Interior.Color = RGB(135, 120, 150)
End If
Next Myrow
End sub
بیایید یک نگاهی به کدهای بالا بکنیم .
در اولین قدم از این کدها ما دو متغیر را تعریف کرده ایم این متغیر ها هر دو از نوع Range هستند .
در قدم بعدی یکی از این متغیر ها را مقدار دهی می کنیم . در اینجا برای اینکه دست ما برای انتخاب محدوده مورد نظر باز باشد از دستور Selection استفاده می کنیم .
با استفاده از این دستور به برنامه اعلام می کنیم که هر محدوده ای را که ما با استفاده از ماوس خود انتخاب کردیم را به عنوان محدوده مورد نظر در نظر گرفته و کارهای مورد نظر را بر روی این محدوده انجام دهد .
حالا این کارها چه هستند را در ادامه کدها برای برنامه تعریف می کنیم .
در خط بعدی از کدها از یک حلقه For استفاده می کنیم . در اینجا اصل ماجرا شروع می شود . با استفاده از این حلقه از برنامه می خواهیم که در تمامی ردیفهای موجود در این محدوده جابجا شود .
در خط بعدی هم از برنامه می خواهیم که محاسبه کند که آیا شماره ردیفی که در آن قرار دارد زوج است یا نه ؟.
و اگر ردیف مربوطه زوج بود در خط بعدی از برنامه می خواهیم که ردیف مربوطه را به رنگ مورد نظر ما در آورد در غیر اینصورت به سراغ ردیف بعدی برود .
این کل کاری بود که این کدها قرار است برای ما انجام دهند .
اگر می خواهید بدانید که چگونه می توان از این کدها استفاده نمود و ماکروی مربوطه را اجرا نمود می توانید از مطلب موجود در لینک زیر بهره ببرید .
مطلب مرتبط : راههای اجرای یک ماکرو در محیط اکسل
در آینده باز هم در قالب مطالب مربوط به ماکروی روز با ماکروهای کاربردی بیشتری آشنا خواهیم شد .
امیدوارم که این مطلب هم برای شما مفید و کاربردی بوده باشد .
در پایان از شما دعوت می کنم که برای مشاهده ترفندهایی از این دست به پیج مربوط به سایت در اینستاگرام مراجعه کنید.
دیدگاهتان را بنویسید